home *** CD-ROM | disk | FTP | other *** search
/ The Disc - MacWorld 1995 / PowerComputing (The Disc)(MacWorld 1995).ISO / mac / CDFACTOR / HCfactor / HumanCode / HumanCode.DXR / 00069.ls < prev    next >
Encoding:
Text File  |  1995-07-14  |  537 b   |  22 lines
  1. global gcurrchapternumber, gcurrlessonnumber, gplaystatus, gPauseMode
  2.  
  3. on mouseDown
  4.   pushBtn()
  5.   if rollOver(10) then
  6.     set the visible of sprite 11 to 1
  7.     if qtkind(gcurrchapternumber) = 0 then
  8.       pausethemoov()
  9.       set newchapternumber to gcurrchapternumber + 1
  10.       donewchapter(gcurrlessonnumber, newchapternumber, gplaystatus)
  11.     else
  12.       if gPauseMode then
  13.         playthemoov()
  14.         set gplaystatus to #play
  15.       else
  16.         pausethemoov()
  17.         set gplaystatus to #pause
  18.       end if
  19.     end if
  20.   end if
  21. end
  22.